1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
5 [153]"hhhhhhh`  
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
150 UZ=1:UV%=PEEK(UT):GOTO300
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,14
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:IFFQ=0GOTO35
166 GOTO 1940
170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
300 PRINT"[147]":POKEUT,UU%:IFUW=0THENPOKEUY,12:POKEUX,6
305 PRINT"                M E N U"
310 PRINT"    --------------------------------"
315 PRINT"       1.   BEGIN MATH SWIM"
320 PRINT"       2.   STUDENT INSTRUCTIONS"
325 PRINT"       3.   TEACHER INSTRUCTIONS"
330 PRINT"       4.   QUIT"
335 PRINT"    --------------------------------"
340 PRINT"       PRESS A NUMBER KEY (1-5) ";
345 UL=1:US$="1234"
347 GOSUB35:US$=""
350 ONVAL(UR$)GOSUB1000,400,500,390
355 GOTO300
370 IFUZ=1THENSYSUP%:GOTO155
375 RETURN
390 SYSUE:PRINT"[154][147]":IFUW=0THENPOKEUY,6:POKEUX,14:SYSUU,14
395 CLR:END
400 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,11:POKEUX,12
405 UT$=" [205]ATH [211]WIM":UH=1:UP=0:UG$="[211]TUDENT [201]NST":GOSUB850
406 PRINT"    [205]ATH [211]WIM IS A GAME PLAYED WITH TWO"
407 PRINT" PLAYERS.  [212]HE GAME IS TO RACE UP THE"
408 PRINT" LADDER TO BE THE FIRST ONE TO DIVE"
409 PRINT" INTO THE SWIMMING POOL."
410 PRINT"    [212]O CLIMB THE LADDER, YOU MUST"
411 PRINT" ANSWER THE MATH QUESTIONS CORRECTLY."
412 PRINT" [201]F YOU GET THE QUESTION RIGHT, YOU"
413 PRINT" MOVE UP ONE RUNG.  [201]F YOU'RE WRONG,"
414 PRINT" DOWN YOU GO!!"
485 GOSUB835
490 IFUZ=1THENSYSUP%:GOTO155
495 RETURN
500 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,2:POKEUX,10
501 UT$=" [205]ATH [211]WIM":UH=1:UP=0:UG$="[212]EACHER [201]NST":GOSUB850
502 PRINT"     [212]O THE BEST OF OUR KNOWLEDGE,"
503 PRINT"     THIS PROGRAM IS IN THE PUBLIC"
504 PRINT"     DOMAIN.  [201]F THIS IS NOT TRUE,"
505 PRINT"     PLEASE CONTACT:"
506 PRINT"      [195][207][205][205][207][196][207][210][197][160][194][213][211][201][206][197][211][211][160][205][193][195][200][201][206][197][211]"
507 PRINT"          3370 [208]HARMACY [193]VE.
508 [153]"          ATNGINCOURT, (null)NTARIO"
509 [153]"          LENANADA, (null)1(null) 2(null)4"
510 [153]"          (416) 499-4292"
511 UH[178]1:[141]835:[141]850
512 [153]"      (null)ROGRAM (null)AME: (null)ATH (null)WIM
513 PRINT"      [215]RITTEN BY  : [210]. [203]AISER
514 [153]"      (null)EVISED BY  : STR$. LEFT$ARRISON
515 PRINT"      [212]HIS PROGRAM WILL RUN ON ANY
516 [153]"         PEEKATN(null)RIGHT$LENCLOSE2.0 (null)VAL(null) LENOMPUTER
517 PRINT"         [194][193][211][201][195] 4.0 [208][197][212][160][195]OMPUTER
518 [153]"         8032 LENPEEK(null) LENOMPUTER
519 PRINT"         [195]OMMODORE 64 [195]OMPUTER":GOSUB835:UH=1:GOSUB850
520 PRINT"    [205]ATH SWIM IS A MATH GAME WITH A"
521 PRINT" DIFFERENCE.  [201]NSTEAD OF SIMPLY ASKING"
522 PRINT" QUESTIONS, THE CHILD IS MOTIVATED"
523 PRINT" BY COMPETITION WITH ANOTHER STUDENT"
524 PRINT" IN A RACE."
526 PRINT"    [205]ATH [211]WIM WILL QUIZ 2 STUDENTS IN"
527 PRINT" FOUR BASIC OPERATIONS.  [215]ITH DIVISION,"
528 PRINT" THE PROGRAM IS CAREFUL TO MAKE SURE"
529 PRINT" THE ANSWERS ARE WHOLE NUMBERS."
585 GOSUB835
590 IFUZ=1THENSYSUP%:GOTO155
595 RETURN
600 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,11:POKEUX,12
605 UT$=" [205]ATH [211]WIM":UH=1:UP=0:UG$="[208]RG. [205]OD.":GOSUB850
606 PRINT"     [212]HE LEVEL OF DIFFICULTY FOR EACH"
607 PRINT"QUESTION IS GENERATED IN LINES 2050-"
608 PRINT"2150.  [195]HANGE THE THE MULTIPLIER"
609 PRINT"IN EACH OF THE [210][206][196] CALLS TO SUIT YOUR"
610 PRINT"STUDENTS' ABILITIES."
685 GOSUB835
690 IFUZ=1THENSYSUP%:GOTO155
695 RETURN
700 PRINTUC$"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032
705 [153]"      LOAD THE 'CBM 4032' PROGRAM":[128]
800 [153]"LOAD";:[151]UT,UU%:[139]UW[178]0[167][151]UY,1:[151]UX,14
801 [129]I[178]1[164]38:[153]" WAIT";:[130]
802 [129]I[178]1[164]22:[153]"CMD WAIT";:[130]
803 [129]I[178]1[164]37:[153]"CMDCMD WAIT";:[130]
804 [129]I[178]1[164]22:[153]"ONCMD WAIT";:[130]
805 [153]"STEP  WAIT
806 PRINT" [146]   [146][169]
807 [153]" WAIT  TAB((null)WAIT O M M O D O R E
808 PRINT"[223]  [146]
809 [153]"EDUCATIONAL
810 PRINT"SOFTWARE
811 [153]"1983
812 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]"UC$:UI=0
813 GETUI$:IFUI$<>" "THENUI=UI+1:IFUI<250THEN813
814 GOTO300
835 POKEUN,0:PRINTLEFT$(UD$,25);"PRESS SPACE BAR TO CONTINUE[146]";
840 GETUI$:IFUI$<>" "THEN840
845 RETURN
850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
855 PRINT" --------------------------------------"
860 IFUH=0THENPRINTLEFT$(UD$,25);LEFT$(UP$,7);"HELP - PRESS   H <RETURN>";
865 UH=0:PRINT"":RETURN
875 PRINTLEFT$(UD$,25);"           ONE MOMENT PLEASE...     ";:RETURN
900 UX$="H":US=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UB=1024:UD=1084:UE=1105
901 UT=59468:UU%=12:UL%=14:UP%=1158:UN=158:POKE50003,0:UW=PEEK(50003):UF=PEEK(53)
902 IFUW=0THENUS=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
903 IFUW=0THENUT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
904 UC$=CHR$(155):UV=1214:IFUW=0THENUF=196:UV=2238
905 UD$="":UP$="                                      "
909 RETURN
910 GOSUB900:PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
915 IFPEEK(US+40)<>96THEN700
920 IF(FRE(0)-(SGN(FRE(0))<0)*65536)>500THEN935
925 PRINTUC$"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
930 PRINT"MEMORY TO RUN THIS PROGRAM !":END
935 PRINT"[147]"UC$:IFUW=0THEN965
940 IFUF=60ORUF=108ORUF=124THEN950
945 POKE52,0:POKE53,UF-4:CLR:GOSUB900
950 IFUW=160THENPOKE1103,88:POKE1104,228:POKE1107,85:POKE1111,228:GOTO965
955 IFUW<>1THENPRINT"[147]THIS PGM WILL NOT WORK ON THIS MACHINE!":END
960 POKE1103,49:POKE1104,230:POKE1107,46:POKE1111,230:GOTO965
965 SYSUD
970 GOSUB800:GOTO300
1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0
1001 PRINT"[147]"UC$;:RESTORE:IFUW=0THENPOKEUY,6:POKEUX,14
1002 CLR:GOSUB900
1010 REM MATH SWIM
1080 POKEUT,UU%
1085 UT$=" MATH SWIM":UG$="PAGE":UH=1:UP=0:GOSUB850:GOSUB875
1090 GOSUB 3050
1100 WR$(1)="[164][210][198][210][164][210][198][210][164][210][198][210][164][210][198]"
1110 WR$(2)="[210][198][210][164][210][198][210][164][210][198][210][164][210][198][210]"
1120 WR$(3)="[198][210][164][210][198][210][164][210][198][210][164][210][198][210][164]"
1130 WR$(4)="[210][164][210][198][210][164][210][198][210][164][210][198][210][164][210]"
1140 QL=INT(RND(1)*2)+1:J(1)=1:J(2)=2
1160 PP$(1)="[205][215][206][157][157][157][163]1[146][163][157][157][157][208] [207]"
1170 PP$(2)="[205][215][206][157][157][157][163]2[146][163][157][157][157][208] [207]"
1180 PP$(3)="[164][215][164][157][157][157][202]1[146][203][157][157][157][208] [207]"
1190 PP$(4)="[164][215][164][157][157][157][202]2[146][203][157][157][157][208] [207]"
1200 PP$(5)=" [215] [157][157][157][206]1[146][205][157][157][157][208] [207]"
1210 PP$(6)=" [215] [157][157][157][206]2[146][205][157][157][157][208] [207]"
1220 PP$(7)=" [215] [157][157][157][213]1[146][201][157][157][157][167] [165]"
1230 PP$(8)=" [215] [157][157][157][213]2[146][201][157][157][157][167] [165]"
1240 PQ$(1)=" [215] [157][157][157][157] [213]1[146][201][157][157][157][157] [167] [205]"
1250 PQ$(2)=" [215] [157][157][157][157] [213]2[146][201][157][157][157][157] [167] [205]"
1260 PQ$(3)=" [215] [157][157][157][157] [213]1[146][201][157][157][157][157] [167] [165]"
1270 PQ$(4)=" [215] [157][157][157][157] [213]2[146][201][157][157][157][157] [167] [165]"
1280 PQ$(5)=" [215] [157][157][157][206]1[146][205][157][157][157][167] [165][157][157][157]   "
1290 PQ$(6)=" [215] [157][157][157][206]2[146][205][157][157][157][167] [165][157][157][157]   "
1300 PQ$(7)=" [215] [157][157][157][157] [206]1[146][205][157][157][157][157] [167] [165]"
1310 PQ$(8)=" [215] [157][157][157][157] [206]2[146][205][157][157][157][157] [167] [165]"
1320 PQ$(9)="   [157][157][157][205][215][206][157][157][157] 1[146] [157][157][157][206] [205]"
1330 PQ$(10)="   [157][157][157][205][215][206][157][157][157] 2[146] [157][157][157][206] [205]"
1340 PR$(1)=" [164][205] [157][157][157] 1[146][215][157][157][157][157] [163][206]"
1350 PR$(2)=" [164][205] [157][157][157] 2[146][215][157][157][157][157] [163][206]"
1360 PR$(3)=" [205][167] [157][157][157] 1[146][215][157][157][157][157] [206][167]"
1370 PR$(4)=" [205][167] [157][157][157] 2[146][215][157][157][157][157] [206][167]"
1380 PR$(5)=" [164] [206][157][157][157] 1[146][215][157][157][157][157] [163] [205]"
1390 PR$(6)=" [164] [206][157][157][157] 2[146][215][157][157][157][157] [163] [205]"
1400 PR$(7)=" [164] [164][157][157][157] 1[146][215][157][157][157][157] [163] [163]"
1410 PR$(8)=" [164] [164][157][157][157] 2[146][215][157][157][157][157] [163] [163]"
1420 PS$(1)=" [164] [157][157] 1[146][157][157][157] [163] [157]"
1430 PS$(2)=" [164] [157][157] 2[146][157][157][157] [163] [157]"
1440 PS$(3)=" [164][157][157] [163]"
1450 PS$(4)=" [164][157][157] [163]"
1460 PS$(5)=" [157] [157] "
1470 PS$(6)=" [157] [157] "
1570 UH=0:GOSUB850:PRINT""
1580 POKEUN,0
1590 PRINTTAB(4)"CHOOSE ONE OF THE FOLLOWING:"
1600 PRINTTAB(10)"A[146] ADDITION"
1610 PRINTTAB(10)"S[146] SUBTRACTION"
1620 PRINTTAB(10)"M[146] MULTIPLICATION"
1630 PRINTTAB(10)"D[146] DIVISION"
1640 PRINT" WHICH OPERATION DO YOU WANT? ";
1650 US$="ASMDH":UL=1:GOSUB35:A$=UR$
1670 IFA$="A"THENMF=1
1680 IFA$="S"THENMF=2
1690 IFA$="M"THENMF=3
1700 IFA$="D"THENMF=4
1710 UH=0:GOSUB850:GOSUB1730:GOTO1910
1720 GOSUB1730:GOTO 1910
1730 RR=11:CC=9:GOSUB3090
1740 PRINT"                [185][185][185][185]"
1750 RR=16:CC=25:GOSUB 3090
1760 PRINT" [146]";
1770 RR=16:CC=26:GOSUB 3090
1780 PRINT WR$(1);
1790 RR=16:CC=25:GOSUB 3090:PRINT" [157] [157] [157] [157] "
1800 RR=19:GOSUB 3090
1810 RR=20:GOSUB 3090
1820 PRINT"                "
1830 RR=21:CC=6:GOSUB3090
1840 PRINT"                 [146]";
1850 PRINT"                 [146]";
1860 RR=12:CC=10:GOSUB3090:PRINT"[167]   [165] [146][167]   [165]"
1870 FORRR=13TO20
1880 CC=10:GOSUB 3090
1890 PRINT"[167][163][163][163][165] [146][167][163][163][163][165]"
1900 NEXTRR:RETURN
1910 L(1)=0:L(2)=0:GOSUB 2580
1920 GOTO2040
1930 RR=23:CC=5+LEN(PB$)-4:GOSUB 3090
1940 ZL=3:GOSUB 2270:IFZI$="H"THENPRINT" [157]";:FQ=1:GOTO145
1950 IF ZI=V3THEN2000
1960 L(QL)=L(QL)-1
1970 IF L(QL)<0THENL(QL)=0
1980 IFL(QL)-7<0THENJ(QL)=QL
1990 GOTO 2030
2000 L(QL)=L(QL)+1
2010 IF L(QL)-7>0THENJ(QL)=J(QL)+2
2020 IF L(QL)=10THENGOSUB2720
2030 GOSUB 2580:QL=3-QL:GOTO 1920
2040 ONMFGOTO 2050,2080,2120,2140
2041 REM
2050 REM * ADDITION *
2055 V1=INT(RND(1)*21)
2060 V2=INT(RND(1)*(20-V1))
2070 V3=V1+V2:MS$="+":GOTO2180
2071 REM
2080 REM * SUBTRACTION *
2085 V1=INT(RND(1)*21)
2090 V2=INT(RND(1)*(20-V1))
2100 IF V2>V1 THEN Q=V1:V1=V2:V2=Q
2110 V3=V1-V2:MS$="-":GOTO2180
2119 REM
2120 REM * MULTIPLICATION *
2125 V1=INT(RND(1)*11):V2=INT(RND(1)*11)
2130 V3=V1*V2:MS$="[214]":GOTO2180
2139 REM
2140 REM * DIVISION *
2145 V2=INT(RND(1)*11)
2150 V3=INT(RND(1)*11)
2160 IFV2=0THEN2140
2170 MS$="/":V1=V2*V3
2180 PB$=STR$(V1)+"  "+MS$+" "+STR$(V2)+"  =  [197][197][197][197]"
2190 RR=23:CC=0:GOSUB 3090:PRINTUP$;
2200 RR=24:CC=3+LEN(PB$)-5:GOSUB3090:PRINT"               ";
2210 FOR XX=1TO2:RR=18-L(XX):CC=0:GOSUB3090
2220 PRINT"        [157][157][157][157][157][157][157][157]        [157][157][157][157][157][157][157][157]        ":NEXT XX
2230 RR=19-L(QL)
2240 CC=1:GOSUB 3090:PRINT" PLAYER"QL
2250 RR=23:CC=5:GOSUB 3090:PRINT PB$
2260 GOTO 1930
2270 ZI$="":ZQ=1
2280 POKEUN,0
2290 GETZG$:IFZG$<>""THEN2320
2300 GOSUB 2510
2305 IFFQ=1THENCC=CC-1:FQ=0
2310 PRINT" [146][157]";:FORZ1=1TO60:NEXT:PRINT" [157]";:FORZ1=1TO2:NEXTZ1:GOTO2290
2320 Z9=ASC(ZG$):Z8=LEN(ZI$)
2330 IF Z8=0 AND ZG$="R" THEN ZL=3
2340 IFZ9=20THEN2420
2350 IFZ9=13THEN2470
2360 IFZ8=ZLTHEN2290
2370 IFZ9=ASC("H")THEN2400
2390 IFZG$<"0"ORZG$>"9"THEN2290
2400 PRINTZG$;:ZI$=ZI$+ZG$:CC=CC+1
2410 GOTO2290
2420 IFZ8=0THEN2290
2430 PRINT"[157] [157]";:CC=CC-1
2440 IFZ8=1THEN2270
2450 ZI$=LEFT$(ZI$,Z8-1)
2460 GOTO2290
2470 IFZ8=0THEN2290
2480 ZI=VAL(ZI$):FORZ1=1TOZ8:PRINT"[157]";:NEXT
2490 IFZC=1THENFORZ1=1TOZ8:PRINT" ";:NEXT:FORZ1=1TOZ8:PRINT"[157]";:NEXT
2500 RETURN
2510 ZQ=ZQ+1
2520 IF ZQ=5 THEN ZQ=1
2530 CX=CC:CY=RR
2540 RR=16:CC=26:GOSUB 3090
2550 PRINTWR$(ZQ);:RR=CY:CC=CX
2560 GOSUB 3090
2570 RETURN
2580 X(1)=21-L(1):X(2)=21-L(2)
2590 FORQX=1TO2:RR=X(QX)-3:CC=5+(QX*6):GOSUB3090:PRINTPP$(J(QX));:NEXTQX
2600 FORQX=1TO2:RR=X(QX):CC=5+(QX*6)
2610 IF L(QL)=0 AND(ZI=V3) THEN 2670
2620 GOSUB3090
2630 IF L(QX)>0THENPRINT"[163][163][163]";
2640 IF L(QX)=0THENPRINT"";
2650 IF L(QX)<=7THENPRINT"[145][145][145][145][157][157][157][164][164][164]"
2660 IF L(QX)>7THENPRINT"[145][145][145][145][157][157][157]   "
2670 NEXTQX
2680 FORQX=1TO2:FORRR=X(QX)-4TO10STEP-1
2690 CC=5+(QX*6):IF QR(QX)=1 THEN 2710
2700 GOSUB3090:PRINT"[164][164][164]":NEXTRR
2710 QR(QX)=1:NEXT QX:RETURN
2720 QL=3-QL:L1=L(QL):FORQY=(21-L1)TO20
2730 L(QL)=L(QL)-1:GOSUB 2510
2740 IF L(QL)-7>0THENJ(QL)=J(QL)-2
2750 IF L(QL)-7<0THENJ(QL)=QL
2760 GOSUB2580:NEXTQY:RR=17:CC=5+(QL*6):GOSUB3090
2770 PRINT"[164][164][164][157][157][157][164][164][164][157][157][157][164][164][164][157][157][157][164][164][164][157][157][157]":RR=10:CC=5+(QL*6):GOSUB3090:PRINT"   "
2780 RR=18:CC=QL*10:GOSUB3090:IFQL=2THENCC=CC+1
2790 IF QL=1THENCC=CC-3
2800 GOSUB 3090:PRINTPP$(QL+6)
2810 FORRR=11TO20:CC=5+(QL*6):GOSUB3090:PRINT"[163][163][163]":GOSUB2510:NEXTRR
2820 QL=3-QL:QW=QL:FORCC=(5+(QL*6))TO27:RR=8
2830 GOSUB 3090:IFQL=1THENQW=4-QW
2840 IF QL=2 THEN QW=6-QW
2850 GOSUB2510
2860 PRINT PQ$(QW):NEXT CC
2870 FORRR=7TO5STEP-1:CC=27:GOSUB3090
2880 PRINTPQ$(4+QL):GOSUB3030:NEXTRR
2890 RR=5:FORCC=27TO30:GOSUB3090
2900 PRINTPQ$(6+QL):GOSUB3030:NEXTCC
2910 CC=30:FORRR=5TO16:GOSUB3090
2920 PRINTPQ$(8+QL):GOSUB3030:NEXTRR
2930 QT=QL:SP=2:FORCC=30TO37:RR=17:GOSUB3090
2940 PRINTPR$(QT):GOSUB3030
2950 IF SP=2 THEN CC=CC-1
2960 QT=QT+SP:IFQT=9 OR QT=10 AND SP=2THEN SP=-2:QT=QT+SP
2970 IFQT=-1ORQT=0ANDSP=-2THENSP=2:QT=QT+SP
2980 NEXT CC:QP=0
2990 RR=17:FORCC=38TO40:GOSUB3090:PRINTPS$(QP+QL);:GOSUB 3030:QP=QP+2:NEXTCC
3000 FOR QX=1 TO 1000:NEXT QX:UH=0:GOSUB850
3010 GOSUB 3180
3020 :
3030 XX=RR:YY=CC:GOSUB2510
3040 RR=XX:CC=YY:RETURN
3050 ZR$="":ZC$=""
3060 FOR Z1=1TO41:ZC$=ZC$+"":NEXT
3070 FOR Z2=1TO25:ZR$=ZR$+"":NEXT
3080 RETURN
3090 PRINT"";
3100 IFCC<2THEN3120
3110 PRINTLEFT$(ZC$,CC-1);
3120 IFRR<2THEN3140
3130 PRINTLEFT$(ZR$,RR-1);
3140 RETURN
3150 POKEUN,0
3160 GET ZG$:IF ZG$="" THEN 3160
3170 RETURN
3180 RR=10:CC=1:GOSUB3090
3190 PRINT" DO YOU WANT TO PLAY AGAIN? ";
3240 US$="YNH":UL=1:GOSUB35:ZG$=UR$
3250 SYSUP%:SYSUP%
3260 IFZG$="Y"THENCLR:GOSUB900:GOTO1010
3300 GOTO300
3310 FORZ1=1TO5:PRINT"                                    "
3320 NEXT:PRINT"":GOTO300